home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib01.dsk / SPACE ANIMATION.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  33 lines
  1. 1  PRINT ""
  2. 2  REM  *************************
  3. 3  REM  ** SPACE ANIMATION     **
  4. 4  REM  ** MICRO-SPARC, INC.   **
  5. 5  REM  ** P.O. BOX 325        **
  6. 6  REM  ** LINCOLN MASS 01773  **
  7. 7  REM  ** COPYRIGHT (C) 1980  **
  8. 8  REM  *************************
  9. 55  HGR : HCOLOR= 3: HOME : VTAB 23: FLASH : PRINT "DRAW THE FIRST PLANET!"
  10. 57  HPLOT 9,0 TO 276,0 TO 276,159 TO 9,159 TO 9,0
  11. 60  FOR Z = 1 TO 180
  12. 62 R = 25:X = 10 + SIN(Z/180 *3.1415) *R
  13. 65 Y = 96 - COS(Z/180 *3.1415) *R: HPLOT X,Y: NEXT Z
  14. 70  VTAB 23: PRINT "NOW THE SECOND PLANET!"
  15. 71  FOR Z = 180 TO 360
  16. 75 R = 20:X = 275 + SIN(Z/180 *3.1415) *R
  17. 80 Y = 60 - COS(Z/180 *3.1415) *R: HPLOT X,Y: NEXT Z
  18. 85  HOME : VTAB 23: PRINT "NOW ADD A FEW STARS!"
  19. 87  FOR I = 1 TO 100:X =  RND(1) *260 +10:Y =  RND(1) *140 +5: HPLOT X,Y: NEXT I
  20. 100  HOME : VTAB 23: PRINT "NOW THE STARS AND SPACE PANEL ZOOM IN!": NORMAL 
  21. 105 X = 138:Y = 77:J = 1:Z = 3
  22. 110 A = 135:B = 75:C = 145:D = 75:E = 145:F = 85:G = 135:H = 85
  23. 120  HCOLOR= 7: HPLOT A,B: HPLOT C,D: HPLOT E,F: HPLOT G,H
  24. 121 L = X:M = Y:K = P:X = X -2:Y = Y -2:J = J +2
  25. 122  IF J = 75  THEN 124
  26. 123 P = 2 *J: HCOLOR= Z: HPLOT X,Y TO X +P,Y TO X +P,Y +P TO X,Y +P TO X,Y
  27. 124  IF J = 75  THEN J = 1:X = 138:Y = 77:P = 2:Z =  RND(1) *7 +1
  28. 126  HCOLOR= 0: HPLOT L,M TO L +K,M TO L +K,M +K TO L,M +K TO L,M
  29. 130 A = A -7:B = B -5:C = C +7:D = D -5:E = E +7:F = F +5:G = G -7:H = H +5
  30. 135 N = N +1
  31. 140  HCOLOR= 0: HPLOT A +7,B +5: HPLOT C -7,D +5: HPLOT E -7,F -5: HPLOT G +7,H -5
  32. 145  IF N = 15  THEN N = 0: HPLOT A,B: HPLOT C,D: HPLOT E,F: HPLOT G,H: GOTO 110
  33. 150  GOTO 120